<?php session_start();
$cvecte=$_SESSION['cvecliente'];
$cvesocio=$_SESSION['cvesocio'];
//echo $cvecte." ".$cvesocio;
set_time_limit(120);

?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Lista de Precios Morsa</TITLE>
<META NAME="Generator" CONTENT="tsWebEditor (tswebeditor.here.at - thalersoftware.here.at)">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<center><B>GRUPO MORSA SA DE CV</B><BR>LISTA DE PRECIOS<BR><BR></center>
<?php
// Nombre de los archivos de salida
$array_ar=array("ListaPrecios_P1.xls","ListaPrecios_P2.xls");
//$archivo1= "ListaPrecios_P1.xls";
//$archivo2= "ListaPrecios_P2.xls";
//$num_arch=2;

$now_date = date('d-m-Y H:i');
$title = "GRUPO MORSA SA DE CV\nLISTA DE PRECIOS\n$now_date\nPrecios mas IVA y sujetos a cambios sin previo aviso\nLa presente lista no incluye promociones del mes, favor de consultar a su representante de GMM\n\n";
//$sql = "Select * from bnet_eng_tracking";

/*    Database Connection (Alternative- for mysql_fetch_array)    */
Require("templates/comunxls.php");

$conexion=Obtener_Conexion();
$sql="Select count(*) from invarticulos where activo='S'";
$res=pg_query($conexion,$sql) or die("Error $sql");
$row= pg_fetch_array($res);
$num_reg=$row[0];
$num_arch= floor($num_reg/50000);

if (fmod($num_reg,50000)>0) {$num_arch++;}

for ($h=0; $h<$num_arch; $h++){
    if (file_exists($arra_ar[$h])){ unlink($array_ar[$h]);}
    if ($h==0){$lim="limit 50000";}else{$lim="offset 50000 limit 50000";}
    $sql="select num_prov,linea,codigo_art,nombre_art,aplicacion,marca,precio_matriz,Vdollar from lista_de_precios_x_cliente_y_socio(".$cvecte.",".$cvesocio.") as (num_prov integer,linea integer,codigo_art char(20),nombre_Art char(40),aplicacion char(40),marca char(10),precio_matriz numeric(15,2),Vdollar numeric(10,2)) ".$lim;
   // $sql="select codigo_art, nombre_art, aplicacion, marca, equivale,activo,case when moneda=1 then 'dolar' else 'peso' end as moneda,(case when moneda=1 then p_venta*(select valor_venta from pdvdollar) else p_venta end), p_venta from invarticulos where activo='S' order by num_prov, linea, num_control ".$lim;
      $res=pg_query($conexion,$sql)  or die ("Error $sql");
    //Separador de Columnas (defines columns in excel)
    $sep = "\t";

    //Imprime Titulo del Documento y timestamp:
    $cadena="$title\n";
   // Imprime encabezados de las columnas
   for ($i = 0; $i < pg_num_fields($res); $i++) {
     $cadena.= strtoupper(pg_field_name($res,$i)) . "\t";
   }
   $cadena.="\n";
   $i=0;
	while($row=pg_fetch_array($res)){
           $schema_insert = "";
           for($j=0; $j<pg_num_fields($res);$j++)
           {
              if(!isset($row[$j]))
                $schema_insert .= "NULL".$sep;
              elseif ($row[$j] != "")
                 $schema_insert .= "$row[$j]".$sep;
              else
                $schema_insert .= "".$sep;
           }
           $schema_insert = str_replace($sep."$", "", $schema_insert);
	   $schema_insert .= "\t";
           $cadena.=(trim($schema_insert));
	   $cadena.= "\n";
           $i++;

	}
   //$p=fopen("$array_ar[$h]","w");
   $archi="lista/ListaPrecios_".$cvecte."P".($h+1).".xls";
   $p=fopen("$archi","w");
   if($p){
     fputs($p,$cadena);
   }
   fclose($p);
   
   echo "<CENTER><a href=".$archi.">".substr($archi,6)."</a><br>";

} //FIN FOR PRINCIPAL
echo "</CENTER>";
Desconectar($conexion);

?>
</BODY>
</HTML>
